Menambahkan validasi 
Misalkan textbox sama combobox ksong tidaka ada inputan 
Klik simpan maka muncul simpan 
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Jika kosong klik simpan maka akan muncul pesan nama admin tidak boleh kosong 
Dan penomoran automatis di kode admin nya 

Jangan lupa xampp nya distart 

Kemudian akan membuat penomoran autoamtis dahulu 

Kita akan membuat disni ketika tombol tambah diklik 

Maka akan muncul kode admin automatis 

Di module kita tambahkan 

Membaca nya database 

Rd 
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Di module nya koneksi 
Kemudian kembali di form desain 


Klik 2kali 

Tambahkan sub numberautomatis 

Buka database dahulu yang sudah kita buat 

Bukadb() 

Buat dahulu 

Dim urtutanKode As String 

Dim Hitung As String 

Kemudian pilih datanya 

Cmd -new select form pili tabel tbl admin whre dimana kodeadmin 
Tabel dan field harus sama dgn databasenya 

In (select max) pilih maxsimal yg ada di field kodeadmin nya from tabel admin", 
con) 

Setelah ini baca cmd.ExecuteReader 

Rd.read() baca 

Jika if not rd.hasrows then jika datanya kosong maka kita inputkan 
Urutankode- "ADM" + "001" kita inputakan data awal nya ADM001 
Jika terbaca misalkan ada maka dipilih 3 digit terakhir dari adm001 
Else 

Hitung-microsoft.VisualBAsic.Right(rd.GetString(0),3) + 1 

Ketika 3 digit keitika klik tombol tambah maka akan bertambah +1 
Kemudian 

urutanKode-"ADM" + karena membuat ADM001 
microsoft.VisualBAsic.Right(^00" &hitung,3) panggil hitungan nya 
end if 

kemudian 


txtkodeadmin.text —urutanKode 
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Txtkodeadmin yg ini 
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#5 MASTER ADMIN EX РЕ 
EDIT HAPUS “ы 


TAMBAH 


09:51 17:40 
>| lampu] cum isi "ED 


Setalah ini sudah kita akan memberikan memnagil nomor automatis 
Ketika klik tombol tambah no-umber auto matis akan muncul 

Kita tambahkan 

Nomorotomatis() 

Txtkodeadmin.focus() diubah yg jadi fous txtnamaadmin 
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Cek eror list 


Lalu save 
Dan run 
Dia akan otomatis sudah membuat penambahan 
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Diagnostics session: 10 seconds 


WẸ MASTER ADMIN 


SIMPAN — EDIT 


11:03 17:40 


Sesuai data yg ada didatabase 


Jadi sudah jalan nomor automatis kita 
Jika kosongkan 
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Data masih disimpan belum divalidasi 

Jadi ketika data ada yg ksoong maka ada pesan isikan data belum lengkap 

Buat else if lagi 

Txtnamaadmin.Text = "" then yaitu kosong maka buat pesan 
Msgbox(namaadmintidakbolehkosong) kemudian 

Txtnamadmin.focus() 

Lalu exitsub 

Lalu copy paste saja 

Buat semuanya 
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Module! vb 
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Dirun maka berhasil 
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Diagnostics session: 7 seconds 
4 Events 
2 


Ф MASTER ADMIN 4 Process Memory (MB) 


SIMPAN — EDIT 


Events 


14:58 
Momm Cit mE 


Kita akan muculkan tanda biar ada peringatan 
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Maka ad peringatan 
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Basah 


Diagnostics session: TI seconds 
4 Events 


4 Process Memory (MB) 


smpan | EDIT 


KODE ADMIN 


penjualan 


Ak, tama senin Tak toleh tasang 


Memory Usage 
Take Snapah 


CPU Usage 


Entre Solution 


de 


16:07 
НП Ke iit STX 


Kita akan buat edit data yg ksong 
Dan dibawah dibuat kan data gridview 
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Database ke gridview dan berikutnya edit 


Form 
Imports System.Data.0dbc 
Public Class form master 
Private Sub Buttonl Click(sender As Object, e As EventArgs) Handles 
Buttonl.Click 
bukaDB() 


End Sub 


Sub TIDAKSIAPDIISI() 


txtkodeadmin.Enabled = False 
txtnamaadmin.Enabled = False 
txtkatasandi.Enabled - False 


ComboBox1.Enabled = False 


End Sub 

Sub SIAPISI() 
txtkodeadmin.Enabled True 
txtnamaadmin.Enabled True 
txtkatasandi.Enabled - True 
ComboBox1.Enabled = True 

End Sub 


Sub KOSONGKANTEXT ( ) 
txtkodeadmin.Text = "" 
txtnamaadmin.Text = "" 
txtkatasandi.Text - 
ComboBox1.Text = "" 

End Sub 

Sub KONDISIAWAL () 
btntambah.Text = "TAMBAH" 


End 
Sub 


End 


Sub 


btnedit.Text - "EDIT" 
btnhapus.Text = "HAPUS" 


ISICOMBOBOX1() 
ComboBox1.Items.Add("ADMIN") 
ComboBox1.Items.Add("USER") 


URUTANOTOMATIS () 

bukaDB () 

Dim urutankode As String 

Dim hitung As String 

cmd = New OdbcCommand("SELECT * FROM tbl admin where kodeadmin in(select 


max(kodeadmin) from tbl admin)", conn) 


га = cmd. ExecuteReader 
rd.Read() 
If Not rd.HasRows Then 


urutankode = "AGM" 4 "001" 


hitung = Microsoft.VisualBasic.Right(rd.GetString(0), 3) + 1 
urutankode = "ADM" + Microsoft.VisualBasic.Right("00" & hitung, 3) 


End If 

txtkodeadmin.Text = urutankode 

txtkodeadmin.Enabled = False 
End Sub 


Private Sub btntambah Click(sender As Object, e As EventArgs) Handles 
btntambah.Click 


If btntambah.Text = "TAMBAH" Then 
btntambah.Text = "SIMPAN" 
btnhapus.Text - "BATAL" 
SIAPISI() 
URUTANOTOMATIS( ) 
txtnamaadmin.Focus() 
ElseIf txtkodeadmin.Text - "" Then 
MsgBox("Kode tidak boleh kosong", vbExclamation) 
txtkodeadmin.Focus () 
ElseIf txtnamaadmin.Text = "" Then 
MsgBox ("Kode tidak boleh kosong", vbExclamation) 
txtnamaadmin.Focus () 
ElseIf txtkatasandi.Text - "" Then 
MsgBox ("Kata Sandi tidak boleh kosong", vbExclamation) 
txtkatasandi.Focus () 
ElseIf ComboBox1.Text = "" Then 
MsgBox ("Level tidak boleh kosong", vbExclamation) 
ComboBox1.Focus () 
Else 
bukaDB ( ) 
Dim simpan As String 
simpan = "INSERT INTO tbl admin values('" & txtkodeadmin.Text & 


"1" 8 txtnamaadmin.Text & "','" & txtkatasandi.Text 6 "','" & ComboBox1.Text 6 


NEW 


cmd = New OdbcCommand(simpan, conn) 
cmd. ExecuteNonQuery() 

MsgBox("Data admin berhasil ditambah") 
KOSONGKANTEXT ( ) 


TIDAKSIAPDIISI() 
KONDISIAWAL () 


End If 
Catch ex As Exception 

MsgBox ("Data admin gagal ditambah") 
End Try 


End Sub 


Private Sub form master Load(sender As Object, е As EventArgs) Handles 
MyBase.Load 
TIDAKSIAPDIISI () 
ІЅІСОМВОВОХ1 ( ) 
Епа Sub 


Private Sub btnhapus Click(sender As Object, е As EventArgs) Handles 
btnhapus.Click 
KOSONGKANTEXT ( ) 
TIDAKSIAPDIISI() 
KONDISIAWAL () 


End Sub 
End Class 


Module 
Imports System.Data.Odbc 
Module Modulel 
Public conn As OdbcConnection 
Public cmd As OdbcCommand 
Public tempatDB As String 
Public rd As OdbcDataReader 
Sub bukaDB() 
Try 
tempatDB = ("Driver-(MYSQL ODBC 3.51 
Driverj;Databasezdb keuangan;uid-root") 
conn - New OdbcConnection(tempatDB) 
If conn.State - ConnectionState.Closed Then 
conn.Open() 
'MsgBox("Koneksi Database Berhasil", vbInformation, "Koneksi 
Sukses") 
End If 
Catch ex As Exception 
MsgBox("Koneksi Database Gagal", vbExclamation, "Koneksi Gagal") 


End Try 
End Sub 


End Module 


a Form Master rosa imm 


TAMBAH EDIT HAPUS Tes Koneksi 


Kode Admin : 


Nama Admin : 


Kata Sandi : 


Level : ng 


